home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Serious Demos / Geo3D 1.1.4 / ScriptGroups < prev   
Text File  |  1998-10-13  |  463b  |  21 lines
  1. -- Geo3D
  2. -- Test Groups
  3.  
  4. tell application "Geo3D"
  5.     activate
  6.     make new document
  7.     set x to import groups from file "Demo.grp"
  8.     if x > 0 then -- 0: error; x includes menu separators!
  9.         fit to screen
  10.         repeat with x from 1 to x
  11.             show group x -- without multi (default)
  12.         end repeat
  13.         show -- show all
  14.         show with multi -- hide all
  15.         repeat with x from 1 to 4
  16.             show group x with multi
  17.         end repeat
  18.         show group 3 with multi -- hide group 3
  19.         stack
  20.     end if
  21. end tell